home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 September / Software of the Month Club 1996 September.iso / mac / Software Research Institute-SRI / Business / Alpha ƒ / Tcl / SystemCode / eudora.tcl < prev    next >
Encoding:
Text File  |  1996-01-07  |  19.8 KB  |  697 lines  |  [TEXT/ALFA]
  1. #     <nowrap>
  2. # Built for Eudora
  3.  
  4. # Class message: A message
  5. # Elements:
  6. #     field by name
  7. # Properties:
  8. #     body  string  -- the body of the message
  9. #     priority  integer  -- the priority
  10. #     label  integer  -- the index of the label
  11. #     status  unread/already read/replied/forwarded/redirected/not sendable/sendable/queued/sent/never sent  -- the message status
  12. #     sender  string  -- the sender as appearing in the message summary
  13. #     date  string  [r/o]  -- the date as appearing in the message summary
  14. #     subject  string  -- the subject as appearing in the message summary
  15. #     size  integer  [r/o]  -- the size of the message
  16. #     outgoing  boolean  [r/o]  -- is the message is outgoing?
  17. #     signature  none/standard/alternate  -- which signature the message should have
  18. #     QP  boolean  -- is Eudora allowed to encode text?
  19. #     return receipt  boolean  -- is a return receipt is requested?
  20. #     wrap  boolean  -- should the text be wrapped when sent?
  21. #     tab expansion  boolean  -- should tabs get expanded to spaces?
  22. #     keep copy  boolean  -- should a copy should be kept after message is sent?
  23. #     preserve macintosh info  boolean  -- should Macintosh information always be sent with attachments?
  24. #     attachment encoding  AppleDouble/AppleSingle/BinHex/uuencode  -- the type of encoding to use for attachments
  25. #     show all headers  boolean  -- should all headers be visible?
  26. #     transliteration table  integer  -- the resource id of the transliteration table
  27. #     will be fetched  boolean  -- will the message be [re]fetched on next check?
  28. #     will be deleted  boolean  -- will the message be deleted from server on next check?
  29. # 
  30.  
  31. proc mailMenu {} {}
  32. proc dummyMail {} {}
  33.  
  34. enableMenuItem install "Rudimentary Eudora Interface" off
  35.  
  36. proc showEudoraMenuProc {flag} {
  37.     global showEudoraMenu mailMenu
  38.     
  39.     if {$showEudoraMenu} {
  40.         insertMenu $mailMenu
  41.     } else {
  42.         removeMenu $mailMenu
  43.     }
  44. }
  45.  
  46. #===============================================================================
  47. newModeVar Mail tossOnQueue        1    1
  48. newModeVar Mail    switchOnQueue    1    1
  49. newModeVar Mail    immediateSend    0    1
  50. #===============================================================================
  51.  
  52.  
  53. proc checkMailPath {} {
  54.     global mailPath modifiedVars
  55.     return [checkRunning "Mail app:" "CSOm" mailPath]
  56. }
  57.  
  58. if {![info exists eudoraBoxes]} {
  59.     set eudoraBoxes {In Out}
  60. }
  61.  
  62. menu -n $mailMenu -p eudoraProc {
  63.     "<SbackgroundEudora"
  64.     "<Seudora"
  65.     "help"
  66.     "(-"
  67.     "/e<UnewMessage"
  68.     "cc"
  69.     "bcc"
  70.     "(-"
  71.     "/f<Usend"
  72.     "/g<Ureply"
  73.     "(-"
  74.     "updateMailboxLists"
  75.     {menu -n openMailbox -p mailBoxProc -m {}}
  76.     {menu -n transfer -p transferProc -m {}}
  77.     "/h<UmoveToTrash"
  78.     "(-"
  79.     {menu -n tellEudora -p eudoraProc {
  80.         "/i<UflushOutbox"
  81.         "/j<UcheckForMail"
  82.         "(-"
  83.         startNotifying
  84.         stopNotifying}}
  85.     {menu -n mailFlags -p mailFlagsProc {flushOnCheck alertOnIncoming}}
  86. }
  87. menu -n openMailbox -p mailBoxProc -m $eudoraBoxes
  88. menu -n transfer -p transferProc -m $eudoraBoxes
  89.  
  90. proc eudoraProc {menu item} {
  91.     global mailPath HOME
  92.     global mailMenu
  93.     switch $item {
  94.         "eudora"        {launch -f $mailPath}
  95.         "backgroundEudora"        {launch $mailPath}
  96.         "help"            {edit -r "$HOME:Help:Eudora"}
  97.         "cc"            {eudoraCc}
  98.         "bcc"            {eudoraBcc}
  99.         "newMessage"    {mailNewMsg}
  100.         "reply"            {mailReplymsg}
  101.         "send"            {checkMailPath; mailSendCreatedMsg}
  102.         "flushOutbox"    {checkMailPath; mailFlushOut}
  103.         "checkForMail"    {checkMailPath; mailCheck}
  104.         "startNotifying" "checkMailPath; startNotifying"
  105.         "stopNotifying"    "checkMailPath; stopNotifying"
  106.         "moveToTrash"    {mailTrashmsg}
  107.         default            $item
  108.     }
  109. }
  110.  
  111. if {![info exists mailflushOnCheck]} {set mailflushOnCheck 1}
  112. if {![info exists mailalertOnIncoming]} {set mailalertOnIncoming 1}
  113. markMenuItem mailFlags flushOnCheck $mailflushOnCheck
  114. markMenuItem mailFlags alertOnIncoming $mailalertOnIncoming
  115.  
  116.  
  117. proc mailFlagsProc {menu flag} {
  118.     global mail$flag modifiedVars
  119.     set mail$flag [expr 1 - [set mail$flag]]
  120.     lappend modifiedVars mail$flag
  121.     markMenuItem mailFlags $flag [set mail$flag]
  122. }
  123.  
  124.  
  125. proc mailBoxProc {menu item} {
  126.     global inboxMembers ALPHA eudoraBoxes modifiedVars
  127.     global tileLeft tileTop tileWidth tileHeight errorHeight
  128.  
  129.     killMailboxWindow
  130.  
  131.     checkMailPath
  132.     switchTo $ALPHA
  133.  
  134.     global trashedMsgs$item
  135.     set trashedMsgs$item {}
  136.     
  137.     set inboxMembers {}
  138.     set text {}
  139.     set ind 1
  140.     foreach msg [mailSenders $item] {
  141.         set from [mailAddr [lindex $msg 0]]
  142.         set tag {}
  143.         while {[lsearch $inboxMembers $from$tag] >= 0} {
  144.             if {![string length $tag]} {
  145.                 set tag { <2>}
  146.             } else {
  147.                 regexp {[0-9]+} $tag tag
  148.                 set tag " <[expr $tag + 1]>"
  149.             }
  150.         }
  151.         append text [format "%-40s : %s\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t░$item░$ind\r" "$from$tag" [lindex $msg 1]]
  152.         lappend inboxMembers $from$tag
  153.         incr ind
  154.     }
  155.     if {![string length $text]} {
  156.         alertnote "No messages in '$item'!"
  157.         return
  158.     }
  159.     
  160.     new -n "* MAILBOX '$item' *" -g $tileLeft $tileTop $tileWidth $errorHeight
  161.     global winModes
  162.     set name [lindex [winNames] 0]
  163.     changeMode [set winModes($name) Brws]
  164.  
  165.     insertText "(<cr> to go to message)\r-----\r$text"
  166.     
  167.     select [nextLineStart [nextLineStart 0]] [nextLineStart [nextLineStart [nextLineStart 0]]]
  168.     setWinInfo dirty 0
  169.     setWinInfo read-only 1
  170.     message ""
  171. }
  172.  
  173.  
  174. proc killMailboxWindow {} {
  175.     if {[set ind [lsearch [winNames] {*MAILBOX*}]] >= 0} {
  176.         set win [lindex [winNames] $ind]
  177.         bringToFront $win
  178.         killWindow
  179.     }
  180. }
  181.  
  182.  
  183. proc mailGotoMatch {} {
  184.     if {[regexp {░(.+)░([0-9]+)} [getText [lineStart [getPos]] [nextLineStart [getPos]]] dummy folder ind]} {
  185.         global trashedMsgs$folder
  186.         
  187.         set deleted 0
  188.         for {set i 1} {$i < $ind} {incr i} {
  189.             if {[lsearch [set trashedMsgs$folder] $i] >= 0} {
  190.                 incr deleted
  191.             }
  192.         }
  193.         mailOpen $folder [expr $ind - $deleted] $ind
  194.     }
  195. }
  196.  
  197.  
  198. proc mailAddr {name} {
  199.     if {![regexp {<(.*)>} $name dummy addr]} {
  200.         regexp {^[^ ]+} $name addr
  201.     }
  202.     return $addr
  203. }
  204.  
  205.  
  206. proc mailSenders {folder} {
  207.     set cnt [mailCountMsgs $folder]
  208.     set msgs {}
  209.     for {set i 1} {$i <= $cnt} {incr i} {
  210.         set subject {}
  211.         regexp {From: (.*)} [mailGetField from $folder $i] dummy from
  212.         regexp {Subject: (.*)} [mailGetField subject $folder $i] dummy subject
  213.         lappend msgs [list $from $subject]
  214.     }
  215.     return $msgs
  216. }    
  217.  
  218.  
  219. proc eudoraCc {} {
  220.     if {![catch {set res [search -s -f 1 -r 1 -i 1 {cc:.*} 0]}]} {
  221.         goto [lindex $res 0]
  222.         endOfLine
  223.     } else {
  224.         beginningOfBuffer
  225.         nextLine
  226.         insertText "Cc: \r"
  227.         backwardChar
  228.     }
  229. }
  230.  
  231.  
  232. proc eudoraBcc {} {
  233.     if {![catch {set res [search -s -f 1 -r 1 -i 1 {bcc:.*} 0]}]} {
  234.         goto [lindex $res 0]
  235.         endOfLine
  236.     } else {
  237.         beginningOfBuffer
  238.         nextLine
  239.         insertText "Bcc: \r"
  240.         backwardChar
  241.     }
  242. }
  243.  
  244.  
  245. proc mailFlushOut {} {
  246.     global MailmodeVars
  247.     message "Telling Eudora to flush messages╔"
  248.  
  249.     AEBuild 'CSOm' CSOm eCon eSen bool(╟01╚) eChk bool(╟00╚)
  250.     message ""
  251. }
  252.  
  253.  
  254. proc mailCheck {} {
  255.     global MailmodeVars mailflushOnCheck
  256.     message "Told Eudora to check for new mail╔"
  257.  
  258.     AEBuild 'CSOm' CSOm eCon eSen bool(╟0$mailflushOnCheck╚) eChk bool(╟01╚)
  259. }
  260.  
  261.  
  262. proc mailReplymsg {} {
  263.     global inboxMembers
  264.  
  265.     set prefix "> "
  266.     set res [search -s -f 1 -r 1 {^>==} 0]
  267.     set header [getText 0 [lindex $res 0]]
  268.     
  269.     set from [mailGetFrom]
  270.     if {![regexp {Subject: ([^\r]*)} $header dummy subject]} {set subject ""}
  271.     set body [getText [expr [lindex $res 1] + 1] [maxPos]]
  272.  
  273.     regsub -all "\r" $body "\r$prefix" body
  274.     mailNewMsg $from "Re: $subject" "\r$prefix$body\r"
  275. }
  276.  
  277. proc transferProc {menu item} {
  278.     doFolderMove $item
  279. }
  280.  
  281.  
  282. proc mailTrashmsg {} {
  283.     doFolderMove Trash
  284. }
  285.  
  286. proc doFolderMove {toFolder} {
  287.     # Is this a summary or msg window?
  288.     if {[regexp "MAILBOX" [lindex [winNames] 0]]} {
  289.         if {![regexp {░(.*)░([0-9]+)} [getText [getPos] [nextLineStart [getPos]]] dummy folder orig]} {
  290.             beep
  291.             return
  292.         }
  293.         if {$toFolder == $folder} return
  294.         global trashedMsgs$folder
  295.  
  296.         set deleted 0
  297.         for {set i 1} {$i < $orig} {incr i} {
  298.             if {[lsearch [set trashedMsgs$folder] $i] >= 0} {
  299.                 incr deleted
  300.             }
  301.         }
  302.         set number [expr $orig - $deleted]
  303.         set summary 1
  304.     } else {
  305.         set pos [lindex [search -f 1 -r 1 {^Msg} 0] 0]
  306.         set text [getText $pos [nextLineStart $pos]]
  307.         regexp {([0-9]+)" \(([0-9]+).*mailbox "([a-zA-Z]+)} $text dummy number orig folder
  308.         if {$toFolder == $folder} return
  309.         set summary 0
  310.  
  311.         global trashedMsgs$folder
  312.     }
  313.     
  314.     message "Moving msg $number ($orig) of folder '$folder' to '$toFolder'"
  315.     moveMsg $number $folder $toFolder
  316.     if {!$summary} killWindow
  317.  
  318.     lappend trashedMsgs$folder $orig
  319.     
  320.     # Find summary info and delete it
  321.     set win [lindex [winNames] 0]
  322.     if {[regexp "MAILBOX" $win]} {
  323.         setWinInfo read-only 0
  324.     
  325.         set inds [search -f 1 -r 1 "░$folder░$orig\$" 0]
  326.         set pos [lindex $inds 0]
  327.         deleteText [lineStart $pos] [nextLineStart $pos]
  328.     
  329.         setWinInfo dirty 0
  330.         setWinInfo read-only 1
  331.  
  332.         nextLine
  333.         upBrowse
  334.     }
  335. }
  336.  
  337.     
  338. proc mailGetFrom {} {
  339.     set res [search -s -f 1 -r 1 {>==} 0]
  340.     set header [getText 0 [lindex $res 0]]
  341.     if {[regexp {From: ([^\r]*)} $header dummy from]} {
  342.         return [mailAddr $from]
  343.     }
  344.     error "No from line"
  345. }
  346.  
  347.     
  348.  
  349. proc mailSendCreatedMsg {} {
  350.     global MailmodeVars
  351.     
  352.     set name [checkMailPath]
  353.     set res [search -s -f 1 -r 0 {>==text follows this line==<} 0]
  354.     set header [getText 0 [lindex $res 0]]
  355.     
  356.     if {![regexp {To: ([^\r]*)} $header dummy to]} {set to ""}
  357.     if {![regexp {Cc: ([^\r]*)} $header dummy cc]} {set cc ""}
  358.     if {![regexp {Subject: ([^\r]*)} $header dummy subject]} {set subject ""}
  359.  
  360.     set body [getText [expr [lindex $res 1] + 1] [maxPos]]
  361.     
  362.     mailCreateMsg
  363.     mailSetField to $to
  364.     mailSetField cc $cc
  365.     mailSetField subject $subject
  366.     mailSetField "" $body
  367.     
  368.     if {$MailmodeVars(tossOnQueue)} {
  369.         setWinInfo dirty 0
  370.         killWindow
  371.     }
  372.  
  373.     mailQueueLast
  374.  
  375.     if {$MailmodeVars(switchOnQueue)} {
  376.         switchTo $name
  377.     }
  378.  
  379.     if {$MailmodeVars(immediateSend)} {
  380.         mailFlushOut
  381.     } else {
  382.         message "Message queued╔"
  383.     }
  384. }
  385.  
  386.     
  387. proc mailNewMsg {{to ""} {subject ""} {body ""}} {
  388.     new -n "New Mail"
  389.     global winModes
  390.     set name [lindex [winNames] 0]
  391.     changeMode [set winModes($name) Mail]
  392.  
  393.     insertText "To: $to\rSubject: $subject\r>==text follows this line==<\r$body"
  394.     setWinInfo dirty 0
  395.     goto 0
  396.     centerRedraw
  397.     mailTab
  398. }
  399.  
  400.  
  401. proc mailTab {} {
  402.     global mailKeywords
  403.     if {[catch {search -s -f 1 -r 1 -i 1 "([join $mailKeywords {|}]|^>)" [getPos]} res]} {
  404.         insertText "\t"
  405.         return
  406.     }
  407.     if {[lookAt [lindex $res 0]] == ">"} {
  408.         select [nextLineStart [lindex $res 1]] [maxPos]
  409.     } else {
  410.         goto [expr [lindex $res 1] + 1]
  411.         endLineSelect
  412.     }
  413. }
  414. bind '\t'                         mailTab Mail
  415.  
  416.  
  417. proc mailOpen {folder i originalNum} {
  418.     global tileLeft tileTop tileHeight trashedMsgs$folder
  419.     
  420.     set from [mailGetField From $folder $i]
  421.     set to [mailGetField To $folder $i]
  422.     set subject [mailGetField Subject $folder $i]
  423.     set sender [mailGetField Sender $folder $i]
  424.     set cc [mailGetField cc $folder $i]
  425.     set contents [mailGetField "" $folder $i]
  426.     
  427. #===============================================================================
  428.     global tileHeight tileWidth tileTop tileLeft errorHeight errorDisp
  429.     set top $tileTop
  430.     set geo [getGeometry]
  431.     if {([lindex $geo 0] != $tileLeft) || ([lindex $geo 1] != $top) || ([lindex $geo 2] != $tileWidth) || ([lindex $geo 3] != $errorHeight) } {
  432.         moveWin $tileLeft $top
  433.         sizeWin $tileWidth $errorHeight
  434.     }
  435.     set mar 28
  436.     incr top [expr $errorHeight + $mar]
  437. #===============================================================================
  438.     new -n "MAIL" -g $tileLeft $top $tileWidth [expr $errorDisp - 5]
  439.  
  440.     global winModes
  441.     set name [lindex [winNames] 0]
  442.     changeMode [set winModes($name) Mail]
  443.  
  444.     set text {}
  445.     if {[string length $subject]} {append text "$subject\r"}
  446.     if {[string length $to]} {append text "$to\r"}
  447.     if {[string length $from]} {append text "$from\r"}
  448.     if {[string length $cc]} {append text "$cc\r"}
  449.     if {[string length $sender]} {append text "$sender\r"}
  450.     append text "Msg \"$i\" ($originalNum) of mailbox \"$folder\"     Reply     Trash\r"
  451.     insertText "${text}>===============================================================================
  452. $contents
  453. "
  454.     goto 0
  455.     goto [lindex [search -f 1 -r 1 {^Msg "} 0] 0]
  456.     set pos [getPos]
  457.     regexp -indices {([0-9]+).*mailbox "(.+)".*(Reply).*(Trash)} [getText $pos [nextLineStart $pos]] dummy num fold rep tra
  458.     colorSelectPos [expr $pos + [lindex $num 0]] [expr 1 + $pos + [lindex $num 1]] bold 12
  459.     colorSelectPos [expr $pos + [lindex $fold 0]] [expr 1 +$pos + [lindex $fold 1]] bold 12
  460.     hyperSelectPos [expr $pos + [lindex $rep 0]] [expr 1 +$pos + [lindex $rep 1]] "mailReplymsg"
  461.     hyperSelectPos [expr $pos + [lindex $tra 0]] [expr 1 +$pos + [lindex $tra 1]] "mailTrashmsg"
  462.  
  463.     goto 0
  464.     setWinInfo dirty 0
  465.     setWinInfo read-only 1
  466.     centerRedraw
  467. }
  468.  
  469. proc colorSelectPos {from to ind ind2} {
  470.     insertColorEscape $from $ind
  471.     insertColorEscape $to $ind2
  472. }
  473.  
  474. proc hyperSelectPos {from to text} {
  475.     if {$from == $to} {
  476.         beep
  477.         return
  478.     }
  479.     insertColorEscape $from 3
  480.     insertColorEscape $from 15 $text
  481.     insertColorEscape $to 12
  482.     insertColorEscape $to 0
  483. }
  484.  
  485. proc mailFixMenus {} {
  486.     global mailMenu
  487.     
  488.     set ins {}
  489.     set outs {}
  490.     
  491.     set cnt [mailCountMsgs in]
  492.     for {set i 1} {$i <= $cnt} {incr i} {
  493.         lappend ins [mailGetField from in $i]
  494.     }
  495.     menu -n in {}
  496.     foreach item $ins {
  497.         addMenuItem -l "" in $item
  498.     }
  499.     
  500.     set cnt [mailCountMsgs out]
  501.     for {set i 1} {$i <= $cnt} {incr i} {
  502.         lappend outs [mailGetField from out $i]
  503.     }
  504.     menu -n out {}
  505.     foreach item $outs {
  506.         addMenuItem -l "" out $item
  507.     }
  508. }
  509.  
  510.  
  511. # make message at end of mailbox "out" of mail folder ""
  512. proc mailCreateMsg {} {
  513.     AEBuild -r 'CSOm' core crel {insh} {insl{kobj:obj {form:name, want:type(euMB), seld:╥out╙, from:obj {form:name, want:type(euMF), seld:'TEXT'(), from:'null'()}}, kpos:end }} kocl {type(euMS)}
  514. }
  515.  
  516.  
  517. # Move msg w/ specified index between folders, including to Trash.
  518. proc moveMsg {msg infolder outfolder} {
  519.     AEBuild -r 'CSOm' core move {----} "obj \{form:indx, want:type(euMS), seld:$msg, from:obj \{form:name, want:type(euMB), seld:╥$infolder╙, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}\}" {insh} "insl\{kobj:obj \{form:name, want:type(euMB), seld:╥$outfolder╙, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}, kpos:end \}"
  520. }
  521.  
  522.  
  523. # set field "fld" of message 0 to "to"
  524. proc mailSetField {fld to} {
  525.     AEBuild -r 'CSOm' core setd {----} "obj \{form:name, want:type(euFd), seld:╥$fld╙, from:obj \{form:indx, want:type(euMS), seld:1, from:'null'()\}\}" data "╥$to╙"
  526. }
  527.  
  528. proc mailGetField {field folder msg} {
  529.     if {[catch {AEBuild -r 'CSOm' core getd {----} "obj \{form:name, want:type(euFd), seld:╥$field╙, from:obj \{form:indx, want:type(euMS), seld:$msg, from:obj {form:name, want:type(euMB), seld:╥$folder╙, from:obj {form:name, want:type(euMF), seld:'TEXT'(), from:'null'()}}\}\}" {rtyp{type:TEXT}}} text]} {
  530.         return ""
  531.     }
  532.     set from [string first "╥" $text]
  533.     set to [string first "╙" $text]
  534.     return [string range $text [expr $from + 1] [expr $to - 1]]
  535. }
  536.  
  537. # obj {want:type('prop'), from:obj {form:indx, want:type(euMS), seld:$msg, from:obj {form:name, want:type(euMB), seld:╥$folder╙, from:obj {form:name, want:type(euMF), seld:'TEXT'(), from:'null'()}}}, form:'prop', seld:type('euST')}
  538.  
  539. proc mailMsgStatus {folder msg} {
  540.     if {[catch {AEBuild -r 'CSOm' core getd {----} "obj \{want:type('prop'), from:obj \{form:indx, want:type(euMS), seld:$msg, from:obj \{form:name, want:type(euMB), seld:╥$folder╙, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}\}, form:'prop', seld:type('euST')\}"} text]} {
  541.         return ""
  542.     }
  543.     set from [string first "╥" $text]
  544.     set to [string first "╙" $text]
  545.     return [string range $text [expr $from + 1] [expr $to - 1]]
  546. }
  547.  
  548. proc mailQueueLast {} {
  549.     AEBuild -r 'CSOm' CSOm eQue ---- {obj {form:indx, want:type(euMS), seld:1, from:'null'()}}
  550. }
  551.  
  552. # CSOm\eAtc{'----':obj {form:indx, want:type(euMS), seld:1, from:'null'()}, eDcl:[fss (╟486172643A4465736B746F7020466F6C6465723A62756773╚)]}
  553. proc mailAttachmentDoesntWork {name} {
  554.     AEBuild -r 'CSOm' CSOm eAtc ---- {obj {form:indx, want:type(euMS), seld:1, from:'null'()}} eDcl [makeAlis $name]
  555. }
  556.  
  557. # core\setd{'----':obj {form:prop, want:type(prop), seld:type(euPY), from:obj {form:indx, want:type(euMS), seld:1, from:'null'()}}, data:1}
  558. proc mailSetNumberProperty {prop to} {
  559.     AEBuild -r 'CSOm' core setd ---- "obj \{form:prop, want:type(prop), seld:type($prop), from:obj \{form:indx, want:type(euMS), seld:1, from:'null'()\}\}" data $to
  560. }    
  561.  
  562.  
  563. # obj {want:type('prop'), from:obj {form:indx, want:type(euMS), seld:$msg, from:obj {form:name, want:type(euMB), seld:╥$folder╙, from:obj {form:name, want:type(euMF), seld:'TEXT'(), from:'null'()}}}, form:'prop', seld:type('euST')}
  564. # Useful for: euPY, eBod, euSe, euSu, eCpy euPY
  565. proc mailGetNumberProperty {prop} {
  566.     AEBuild -r 'CSOm' core getd ---- "obj \{form:prop, want:type(prop), seld:type($prop), from:obj \{form:indx, want:type(euMS), seld:1, from:'null'()\}\}" 
  567. }
  568.  
  569. proc mailCountMsgs {mbox} {
  570.     set text [AEBuild -r 'CSOm' core cnte ---- "obj \{form:name, want:type(euMB), seld:╥$mbox╙, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}" kocl {type(euMS)}]
  571.     if {[regexp {:([0-9]+)} $text dummy mtch]} {
  572.         return $mtch
  573.     }
  574.     error "Bad count"
  575. }
  576.  
  577. proc mailCountMailboxes {} {
  578.      set text [AEBuild -r 'CSOm' core cnte ---- "obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}" kocl {type(euMB)}]
  579.     if {[regexp {:([0-9]+)} $text dummy mtch]} {
  580.         return $mtch
  581.     }
  582.     error "Bad count"
  583. }
  584.  
  585. proc updateMailboxLists {} {
  586.     set num [mailCountMailboxes]
  587.     for {set i 1} {$i <= $num} {incr i} {
  588.         set res [AEBuild -r 'CSOm' core getd ---- "obj \{form:prop, want:type(prop), seld:type(euFS), from:obj \{form:indx, want:type(euMB), seld:$i, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}\}" ]
  589.         if {[regexp {╟(.*)╚} $res dummy fss]} {
  590.             set name [file tail [specToPathName $fss]]
  591.             message $name
  592.             lappend boxes $name
  593.         }
  594.     }
  595.     
  596.     global eudoraBoxes modifiedVars
  597.     lappend modifiedVars eudoraBoxes
  598.     set eudoraBoxes $boxes
  599.     menu -n openMailbox -p mailBoxProc -m $eudoraBoxes
  600.     menu -n transfer -p transferProc -m $eudoraBoxes
  601.     message "done."
  602. }
  603.  
  604.  
  605. #===============================================================================
  606.  
  607. eventHandler CSOm eNot "eudoraHandler"
  608.  
  609. # a sample 'msgs': obj {want:type(euMS), from:obj {want:type(euMB), from:obj {want:type(euMF), from:'null'(), form:name, seld:'TEXT'()}, form:name, seld:╥In╙}, form:indx, seld:18}, obj {want:type(euMS), from:obj {want:type(euMB), from:obj {want:type(euMF), from:'null'(), form:name, seld:'TEXT'()}, form:name, seld:╥In╙}, form:indx, seld:19}
  610. proc eudoraHandler {it} {
  611.     global blah mailalertOnIncoming
  612.     message ""
  613.     if {[regexp {eWHp:wArv.*\[(obj.*)\], &repq} $it dum1 msgs]} {
  614.         set ids [getMsgIDs $msgs]
  615.         if {$mailalertOnIncoming} {
  616.             mailBrowser In $ids
  617.             beep; beep
  618.         }
  619.     }
  620. }
  621.  
  622.  
  623. proc mailBrowser {folder ids} {
  624.     global inboxMembers ALPHA
  625.     global tileLeft tileTop tileWidth tileHeight errorHeight
  626.  
  627.     checkMailPath
  628.     switchTo $ALPHA
  629.  
  630.     global trashedMsgs$folder
  631.     set trashedMsgs$folder {}
  632.     
  633.     set inboxMembers {}
  634.     set text {}
  635.  
  636.     foreach id $ids {
  637.         regexp {From: (.*)} [mailGetField from $folder $id] dummy from
  638.         set from [mailAddr $from]
  639.         set subject {}
  640.         regexp {Subject: (.*)} [mailGetField subject $folder $id] dummy subject
  641.         set tag {}
  642.         while {[lsearch $inboxMembers $from$tag] >= 0} {
  643.             if {![string length $tag]} {
  644.                 set tag { <2>}
  645.             } else {
  646.                 regexp {[0-9]+} $tag tag
  647.                 set tag " <[expr $tag + 1]>"
  648.             }
  649.         }
  650.         append text [format "%-40s : %s\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t░In░$id\r" "$from$tag" $subject]
  651.         lappend inboxMembers $from$tag
  652.     }
  653.     if {![string length $text]} {
  654.         alertnote "No messages!"
  655.         return
  656.     }
  657.     
  658.     if {[set ind [lsearch [winNames] "*Incoming MAILBOX*"]] >= 0} {
  659.         bringToFront [lindex [winNames] $ind]
  660.         setWinInfo read-only 0
  661.         endOfBuffer
  662.         insertText $text
  663.     } else {
  664.         killMailboxWindow
  665.         new -n "* Incoming MAILBOX *" -g $tileLeft $tileTop $tileWidth $errorHeight
  666.         global winModes
  667.         set name [lindex [winNames] 0]
  668.         changeMode [set winModes($name) Brws]
  669.     
  670.         insertText "(<cr> to go to message)\r-----\r$text"
  671.     }
  672.     select [nextLineStart [nextLineStart 0]] [nextLineStart [nextLineStart [nextLineStart 0]]]
  673.     setWinInfo dirty 0
  674.     setWinInfo read-only 1
  675.     message ""
  676. }
  677.  
  678.  
  679. proc getMsgIDs {text} {
  680.     if {[regexp -indices {seld:([0-9]+)} $text dummy ind]} {
  681.         return [concat [string range $text [lindex $ind 0] [lindex $ind 1]] [getMsgIDs [string range $text [lindex $ind 1] end]]]
  682.     }
  683. }
  684.  
  685. proc startNotifying {} {
  686.     global HOME ALPHA quitHooks
  687.     
  688.     AEBuild 'CSOm' CSOm nIns ---- [makeAlis "$HOME:$ALPHA"]
  689.     lappend quitHooks stopNotifying
  690. }
  691.  
  692. proc stopNotifying {} {
  693.     global HOME ALPHA
  694.     
  695.     AEBuild 'CSOm' CSOm nRem ---- [makeAlis "$HOME:$ALPHA"]
  696. }
  697.